home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Selection / Multimedia Selection Volume One - CD-ROM / MULTIMEDIA SELECTION____________.ISO / grafica / dos / theimage / demo_img.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-30  |  1.6 KB  |  50 lines
  1.  
  2. UNIT DEMO_IMG;                                { July 31, 1993 at 08:19 }
  3. {
  4. Turbo Pascal source unit from TheDraw assembler screen file, created by
  5. TheImage v1.00 - Copyright (C) 1993 by José De Almeida. All Rights Reserved.
  6. }
  7.  
  8.  
  9. INTERFACE
  10.  
  11.  
  12. const
  13.   IMAGEDATA_WIDTH  = 80;                      { number of columns }
  14.   IMAGEDATA_DEPTH  = 25;                      { number of lines   }
  15.   IMAGEDATA_LENGTH = 289;                     { size of screen    }
  16.  
  17. PROCEDURE IMAGEDATA;                          { the screen        }
  18.  
  19.  
  20. IMPLEMENTATION
  21.  
  22.  
  23.  
  24. PROCEDURE IMAGEDATA; Assembler;
  25.  
  26. ASM { IMAGEDATA }
  27.  
  28. { TheDraw Assembler Crunched Screen Image.  Date: 07/31/93 }
  29.  
  30.         DB      8,16,26,'O▄',24,'█',26,'M▒█',24,'█',26,'M▒█',24,'█',26
  31.         DB      'M▒█',24,'█',26,'M▒█',24,'█',26,'M▒█',24,'█',26,'M▒█'
  32.         DB      24,'█',26,'M▒█',24,'█',26,4,'▒ ┌',26,'>─┐ ',26,5,'▒█'
  33.         DB      24,'█',26,4,'▒ │',25,'>│ ░░',26,3,'▒█',24,'█',26,4,'▒'
  34.         DB      ' │',25,'>│ ░░',26,3,'▒█',24,'█',26,4,'▒ │  ',14,'Sa'
  35.         DB      'mple demo on how to use TheImage and a TheDraw .ASM'
  36.         DB      ' file.  ',8,'│ ░░',26,3,'▒█',24,'█',26,4,'▒ │',25,'>'
  37.         DB      '│ ░░',26,3,'▒█',24,'█',26,4,'▒ │',25,'>│ ░░',26,3,'▒'
  38.         DB      '█',24,'█',26,4,'▒ └',26,'>─┘ ░░',26,3,'▒█',24,'█',26
  39.         DB      6,'▒',26,'B░',26,3,'▒█',24,'█',26,'M▒█',24,'█',26,'M'
  40.         DB      '▒█',24,'█',26,'M▒█',24,'█',26,'M▒█',24,'█',26,'M▒█',24
  41.         DB      '█',26,'M▒█',24,'█',26,'M▒█',24,26,'O▀',24,24
  42. END; { IMAGEDATA }
  43.  
  44.  
  45.  
  46. END. { DEMO_IMG.PAS }
  47.  
  48.  
  49.  
  50.